home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / SHOWANSI.TSL < prev    next >
Encoding:
Text File  |  1995-08-07  |  968 b   |  35 lines
  1. % -----------------------------------------------------------------------------
  2. % ANSI file demonstration                              *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : SHOWANSI.TSL
  7. %  Company          : SerWiz Comm
  8. %  Programmer       : Bo Bendtsen
  9. %  Module created   : 07 Aug 1995
  10. %  Latest revision  : 07 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Opens and shows the contents of an ANSI file
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. ClearScreen
  17. Print "Showing HOST\WELCOME.ANS"
  18. WaitEnter
  19.  
  20. SetTerminal 1
  21.  
  22. Set Key=0
  23. Set Filename = "HOST\WELCOME.ANS"
  24. OpenText 1,Filename,0
  25. If IOResult=0
  26.   Set IOResult=0
  27.   While EndofTextFile(1)=0
  28.     WriteTerminal readtext(1)
  29.   EndWhile
  30.   CloseText 1
  31. Else
  32.   PrintLn "Could not open file"
  33. Endif
  34.  
  35.